; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题

#IfWinActive ahk_exe Typora.exe
{
    ; Ctrl+Alt+r 红色
    ^!r::addFontColor("red")
	
    ; Ctrl+Alt+b 蓝色
    ^!b::addFontColor("Blue")
	
    ; Ctrl+Alt+n 空格
    ^!n::addNBSP()
	
	; Ctrl+Alt+q <mark>
    ^!q::addMARK()
}

; 快捷增加字体颜色
addFontColor(color){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<span style='color:%color%'>
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</span> ; Typora 在这不会自动补充
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    }
}

; 快捷增加空格
addNBSP(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}&nbsp;
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    
}

; 快捷 <mark>
addMARK(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<mark>
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</mark> ; Typora 在这不会自动补充
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    }
    
}